home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue50 / XML / TestRig.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-09-05  |  945 b   |  52 lines
  1. unit TestRig;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.     XmlClasses, StdCtrls, ComCtrls;
  8.  
  9. type
  10.   TfrmTestRig = class(TForm)
  11.     TV: TTreeView;
  12.     procedure FormShow(Sender: TObject);
  13.   private
  14.     Doc: TXmlDDocument;
  15.   public
  16.   end;
  17.  
  18. var
  19.   frmTestRig: TfrmTestRig;
  20.  
  21. implementation
  22.  
  23. {$R *.DFM}
  24.  
  25. procedure TfrmTestRig.FormShow(Sender: TObject);
  26. //var
  27. //  FileStream: TFileStream;
  28. begin
  29.   Doc := TXmlDDocument.Create;
  30.   try
  31.     Doc.LoadFromFile('Test1.xml');
  32.     //FileStream := TFileStream.Create('Test1.xml', fmOpenRead);
  33.     //Doc.LoadFromStream(FileStream, False);
  34.   except
  35.     on E: EXmlDParseError do
  36.     begin
  37.       E.ShowParseError;
  38.       exit;
  39.     end;
  40.     else
  41.       raise;
  42.   end;
  43.   Doc.SaveToFile('TestOutput1.xml');
  44.   TV.Items.Assign(Doc);
  45.   TV.FullExpand;
  46.   TV.TopItem := TV.Items[0];
  47.   Doc.Free;
  48.   //FileStream.Free;
  49. end;
  50.  
  51. end.
  52.